
* APPENDIX - WHY BIASES ARE LARGER UNDER LOW TURNOUT: PERPETUAL NONVOTERS, PERIPHERAL VOTERS, REGULAR VOTERS

cd "$data"
use "besip.dta", clear 



	* TABLE J.1: DO PERPETUAL NON-VOTERS DIFFER FROM PERIPHERAL AND REGULAR VOTERS IN TERMS OF THEIR SOCIO-ECONOMIC CHARACTERISTICS?
	
	regress age i.votertype, robust
	estimates store est_age 
	regress female i.votertype, robust 
	estimates store est_female 
	regress highincome i.votertype, robust 
	estimates store est_income 
	recode employment (2=1)
	regress employment i.votertype, robust 
	estimates store est_employment 
	regress higheducation i.votertype, robust 
	estimates store est_education 		
	regress partisan i.votertype, robust 
	estimates store est_partisan 		
	
	cd "$tables"
		 esttab est_age est_female est_education est_income est_employment est_partisan using votertypes.tex, replace ///
 b(3) se(2) ///
 collabels("Age" "Female" "High Education" "High Income" "Employed" "Partisan") ///
 coeflabels(intercept "label of intercept") ///
 title("Voter Types and Their Characteristics") 

 
 
 * TABLE J.2: HOW POLICY PREFERENCES DIFFER AMONG VOTER TYPES?
 
 
	
	eststo m_selfplacement: regress leftRightW20 i.votertype if leftRightW20<11, robust 
	eststo m_redistribution: regress redistSelfW20 i.votertype if redistSelfW20<11, robust 
	eststo m_spending: regress taxSpendSelfW20 i.votertype if taxSpendSelfW20<11, robust 
	eststo m_immigration1: regress immigSelfW20 i.votertype if immigSelfW20<11, robust 
	eststo m_immigration2: regress immigEconW20 i.votertype if immigEconW20<11, robust 
	eststo m_immigration3: regress immigCulturalW20 i.votertype if immigCulturalW20<11, robust 
	eststo m_environment: regress enviroGrowthW20 i.votertype if enviroGrowthW20<11, robust 
	eststo m_euintegration: regress EUIntegrationSelfW20 i.votertype if EUIntegrationSelfW20<11, robust 

		cd "$tables"
	
esttab m_selfplacement m_redistribution m_spending m_immigration1 m_immigration2 m_immigration3 m_environment m_euintegration using votertypes2.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "spending" "immigration 1" "immigration 2" "immigration 3" "environment" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 
 
 
foreach var of varlist leftRightW20 taxSpendSelfW20 immigSelfW20 immigEconW20 immigCulturalW20 redistSelfW20 EUIntegrationSelfW20 enviroGrowthW20 cutsTooFarLocalW20 cutsTooFarNationalW20 cutsTooFarNHSW20 {
	regress `var' i.votertype if `var'<11 & samplelimit==1, robust 
	margins, at(votertype=(0 1 2)) post
	estimates store est_`var'	
}

esttab est_leftRightW20 est_redistSelfW20 est_taxSpendSelfW20 est_immigSelfW20 est_immigEconW20 est_immigCulturalW20 est_enviroGrowthW20 est_EUIntegrationSelfW20 using votertype.tex, replace ///
 b(3) se(2) ///
 collabels("left-right" "redistribution" "spending" "immigration 1" "immigration 2" "immigration 3" "environment" "EU integration") ///
 coeflabels(intercept "label of intercept") ///
 title("Regression Results") 

